home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / makinat / minstall < prev    next >
Text File  |  1977-12-31  |  3KB  |  85 lines
  1. ; MakinaTool Installation Script
  2. ; Version 2.5
  3. ; by Fressel Frederic
  4. ; Copyright 1996-1997
  5. ;
  6. ;
  7.  
  8. ; set up Makina vars
  9. (set m_dc      (tackon @default-dest "Work:"))  ; Destination for utils.
  10. (set m_dcd     (tackon @default-dest "Work:"))  ; default destination
  11.  
  12.  
  13. ;;;;;;
  14. ;;;;;;     Install to Hard Disk
  15. ;;;;;;
  16. ( 
  17.       (set m_dcd (tackon @default-dest "Work"))
  18.       (set m_dc (askdir (prompt "Où dois-je installer MakinaTool ?\n"
  19.                              "Créez un nouveau tirroir si vous le désirez.")
  20.                              (help @askdir-help) (default m_dcd)
  21.                   )
  22.       )
  23.  
  24.         ; Create main directory if necessary...
  25.  
  26.       (if (NOT (exists m_dc))
  27.         (
  28.          (makedir m_dc (prompt (cat "Création du tiroir" m_dc))
  29.                              (infos)
  30.                       (help @makedir-help))
  31.       ))   
  32.        
  33.      (message "MakinaTool © (1996 - 1997)\n"
  34.               "Version 2.5 / ShareWare\n"
  35.               "Fressel Frédéric\n\n\n\n"
  36.               "Je commence l'Installation ?")
  37.  
  38.      (copyfiles  (source @execute-dir)
  39.                  (dest m_dc)
  40.                  (choices  "MakinaTool")
  41.                  (prompt (cat "Copies des Archives dans:" m_dc))
  42.                  (help @copyfiles-help)
  43.                  (confirm))  
  44.     
  45.     (set choice_doc (askchoice
  46.      (prompt "Voulez vous intaller le fichier \n"
  47.              "Makina Dans le tirroir WBStartup ou en AppMenu\n")
  48.      (choices "AppMenu" "WBStartup")
  49.      (help
  50.        (cat "Si vous répondez  WBStartup le fichier Makina sera\n"
  51.             "copié dans le tirroir WBSartup.Cela vous permet\n"
  52.             "de disposer de MakinaTool dès le chargemment du WB\n"))
  53.     )) 
  54.     (if (= choice_doc 0)
  55.     (
  56.       (run (cat "c:Copy " m_dc "/MakinaTool/Prefs/AppMenuMT TO HD0:WBStartup/"))
  57.       (run (cat "c:Copy " m_dc "/MakinaTool/Prefs/AppMenuMT.info TO HD0:WBStartup/"))  
  58.     ))
  59.     (if (= choice_doc 1)
  60.     (
  61.       (run (cat "c:Copy " m_dc "/MakinaTool/Makina TO HD0:WBStartup/"))
  62.       (run (cat "c:Copy " m_dc "/MakinaTool/Makina.info TO HD0:WBStartup/"))
  63.     ))
  64.  
  65.     
  66.     (set m_assigns (cat "assign MakinaT: \"" m_dc "/MakinaTool\"\n"))
  67.     (startup "MakinaTool"
  68.                      (prompt "Etes-vous d'accord pour ajouter quelques lignes à la "
  69.                              "fin de votre fichier de démarrage afin de fournir à "
  70.                              "votre système les assignations nécessaires au "
  71.                              "logiciel MakinaTool ?\nCliquez sur \"Aide\" (ou \"Help\") "
  72.                              "pour plus d'informations."
  73.                      )
  74.                      (help "MakinaTool ne peut pas fonctionner correctement sans l' assignation suivante :\n\n"
  75.                               m_assigns
  76.                              "\n\nSi vous ne laissez pas la procédure d'installation ajouter ces lignes "
  77.                              "dans votre fichier de démarrage, MakinaTool plantera."
  78.                      )
  79.                       (command m_assigns)
  80.                          )
  81.    (message "Installation Terminée\n"
  82.             "(Faite un reset pour activer l'assignation)")
  83.    (exit (quiet))
  84.  )
  85.